home *** CD-ROM | disk | FTP | other *** search
/ Input 64 / Input_64_85-10_1985_Verlag_Heinz_Weise_de.d64 / L a (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  108 lines
  1. 10 poke50257,4:si=54272:vi=53284:ll$="                           "
  2. 11010 fori=0to23:pokesi+i,0:next
  3. 11400 printchr$(14)chr$(8);"[147][144]";:poke53280,8:poke53281,8:gosub43600
  4. 11410 z=1:s=6:gosub52400:print"[204] [193] [211] [212]   [206] [207] [212]   [204] [197] [193] [211] [212]"
  5. 12330 z=10:s=2:gosub52400:print" 1 [144]  [206] e u e   [211] e r i e n"
  6. 12800 z=12:s=2:gosub52400:print" 2 [144]  [214] o r s c h a u"
  7. 13000 z=24:s=3:gosub52400:print"[144][215]ahl    1 - 2 [146]";:fort=0to200:nextt
  8. 13010 getg$
  9. 13020 poke198,0:ifg$=""then13800
  10. 13400 ifg$>"0"andg$<"3"thengosub44800:goto14000
  11. 13600 gosub45600
  12. 13800 gosub52400:print"[144][215]ahl    1 - 2 ";:fort=0to200:nextt:goto13000
  13. 14000 onval(g$)gosub14500,16000,14500,14500,14500,14500
  14. 14200 goto11400
  15. 14500 print"[147][144]";:poke53280,8:poke53281,8:gosub43600:z=1:s=1:gosub52400
  16. 14510 print"        [206] e u e  [211] e r i e n":print:print
  17. 14520 print:print"[196]as [205]odul [204][193][211][212] [206][207][212] [204][197][193][211][212] wird es in"
  18. 14530 print"dieser [198]orm zum letzten [205]al geben."
  19. 14540 print:print"[196]afuer werden aber drei neue [211]erien in's";
  20. 14550 print"[204]eben gerufen."
  21. 14560 print:print:print"[206]eu werden demnaechst sein:"
  22. 14570 print:print:print"    [210][193][197][212][211][197][204][197][195][203][197]"
  23. 14580 print"    [201][196] - [215][197][210][203][211][212][193][212][212]"
  24. 14590 print"    und"
  25. 14600 print"    [195]= - [211][212][213][196][201][207]"
  26. 14610 gosub48800
  27. 14620 print"[147][144]";:poke53280,8:poke53281,8:gosub43600:z=1:s=1:gosub52400
  28. 14630 print"        [206] e u e  [211] e r i e n":print:print
  29. 14640 print"[210][193][197][212][211][197][204][197][195][203][197]"
  30. 14650 print:print"[201]n dieser [210]ubrik werden die [210]aetsel und"
  31. 14660 print"die [210]aetselaufloesungen wie gewohnt"
  32. 14670 print"dargestellt."
  33. 14680 print:print"[198]alls die [193]ufgabenstellung es er-"
  34. 14690 print"fordert, koennen [211]ie selbstverstaendlich";
  35. 14700 print"auch das dazugehoerige [193]ufgaben-[208]rogramm";
  36. 14710 print"abspeichern."
  37. 14720 print:print"[218]u den [193]ufloesungen werden auch wie"
  38. 14730 print"immer die [199]ewinner der ersten [208]reise"
  39. 14740 print"aufgefuehrt."
  40. 14750 print:print"[196]ie [210][193][197][212][211][197][204][197][195][203][197] wird also ein eigen-"
  41. 14760 print"staendiges [205]odul sein."
  42. 14770 gosub48800
  43. 14780 print"[147][144]";:poke53280,8:poke53281,8:gosub43600:z=1:s=1:gosub52400
  44. 14790 print"        [206] e u e  [211] e r i e n":print:print
  45. 14800 print"[201][196] - [215][197][210][203][211][212][193][212][212]"
  46. 14810 print:print:print"[200]ier werden [208]rogramme vorgestellt, die"
  47. 14820 print"wir [201]hnen nicht vorenthalten wollen,"
  48. 14830 print"aber innerhalb des [201][206][208][213][212] 64[146]-[194]etriebs-"
  49. 14840 print"systems nicht lauffaehig sind."
  50. 14850 print:print"[193]lle [208]rogramme, die wir in dieser"
  51. 14860 print"[215]erkstatt veroeffentlichen, werden mit"
  52. 14870 print"einem [201][206][208][213][212] 64[146]-[202]ahresabo honoriert."
  53. 14880 print:print"[198]alls [211]ie [203]ontakte mit anderen [204]esern"
  54. 14890 print"aufnehmen moechten, sollten [211]ie [201]hre"
  55. 14900 print"[193]nschrift in [210][197][205]-[218]eilen einbauen."
  56. 14910 gosub48800
  57. 14920 print"[147][144]";:poke53280,8:poke53281,8:gosub43600:z=1:s=1:gosub52400
  58. 14930 print"        [206] e u e  [211] e r i e n":print:print
  59. 14940 print"[195]= - [211][212][213][196][201][207]"
  60. 14950 print:print:print"[208]rogramme, die im [195]= - [211][212][213][196][201][207] ver-"
  61. 14960 print"oeffentlicht werden, muessen innerhalb"
  62. 14970 print"des [201][206][208][213][212] 64[146]-[194]etriebssystems lauffaehig"
  63. 14980 print"und ausserdem absturzsicher sein."
  64. 14990 print:print"[205]alen [211]ie doch mal ein [194]ild, oder"
  65. 15000 print"komponieren ein [205]usikstueck. [214]ielleicht"
  66. 15010 print"schicken [211]ie auch eine [195]omputer-[199]rafik?"
  67. 15020 print:print"[201]n dieser [210]ubrik behalten wir uns die"
  68. 15030 print"[197]ntscheidung ueber die [200]oehe des"
  69. 15040 print"[200]onorars vor."
  70. 15050 gosub47200:return
  71. 16000 print"[147][144]";:poke53280,8:poke53281,8:gosub43600:z=1:s=1:gosub52400
  72. 16010 print"  [214] o r s c h a u   [201][206][208][213][212] 64  10/85":print:print
  73. 16020 print:print"[144][215]ir bringen unter anderem:"
  74. 16030 print:print:print"[208][204][193][206][197][212][193][210][201][213][205][144]"
  75. 16040 print:print"[211]ie koennen sich jetzt die gesamten"
  76. 16050 print"[211]ternbilder ins [200]aus holen. [199]eben [211]ie"
  77. 16060 print"die [194]lickrichtung in [199]rad, das [196]atum und";
  78. 16070 print"die [213]hrzeit ein, und schon sehen [211]ie"
  79. 16080 print"einen [193]usschnitt des [211]ternenhimmels."
  80. 16090 print:print:print"[213]nd ausserdem:"
  81. 16100 print:print"64er-[212]ips * [211][201][196]-[203]urs [212]eil 5  und vieles"
  82. 16110 print"andere mehr."
  83. 38750 gosub47200
  84. 38760 return
  85. 43600 z=0:s=0:gosub52400:print"[144][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";:print"[221]                                      [221]";:print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]";:return
  86. 44400 :
  87. 44800 pokesi,59:pokesi+1,139:pokesi+6,240:pokesi+4,17:pokesi+24,15:fort=0to100:nextt:pokesi+4,0:return::
  88. 45600 pokesi,180:pokesi+1,8:pokesi+6,240:pokesi+4,17:pokesi+24,15:fort=0to100:nextt:pokesi+4,0:return::
  89. 47200 poke197,64
  90. 47210 z=24:s=0:gosub52400:print"[144][201]nhalt =  [201] [146]";:fort=0to200:nextt
  91. 47220 zl=zl+1:ifzl>15thenzl=0
  92. 47230 poke53287,zl:poke53288,zl
  93. 47400 getg$:poke198,0:ifg$=""then48000
  94. 47600 ifg$="i"org$="[201]"thengosub44800:goto48200
  95. 47800 gosub45600
  96. 48000 gosub52400:print"[144][201]nhalt =  [201]  ";:fort=0to200:nextt:goto47210
  97. 48200 gosub52400:print"                  ";:return
  98. 48800 poke277,0:poke197,64
  99. 48810 z=24:s=0:gosub52400:print"[144][215]eiter =  [215] [146]";:fort=0to200:nextt
  100. 48812 zl=zl+1:ifzl>15thenzl=0
  101. 48814 poke53288,zl
  102. 48820 getg$:poke198,0:ifg$=""then49600
  103. 49200 ifg$="w"org$="[215]"thengosub44800:goto49800
  104. 49400 gosub45600
  105. 49600 gosub52400:print"[144][215]eiter =  [215]  ";:fort=0to200:nextt:goto48800
  106. 49800 gosub52400:print"                 ";:poke197,64:return
  107. 52400 poke214,z:poke211,s:sys58640:print"";:return
  108.